/ Linux Cubed Series 2: Applications / Linux Cubed Series 2 - Applications.iso / editors / emacs / xemacs / xemacs-1.006 / xemacs-1 / lib / xemacs-19.13 / lisp / prim / debug.elc

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 63 74 68 6f 6d 70 40 |piled by| cthomp@|
|00000020| 77 69 6c 6c 6f 77 2e 63 | 73 2e 75 69 75 63 2e 65 |willow.c|s.uiuc.e|
|00000030| 64 75 20 6f 6e 20 54 75 | 65 20 41 75 67 20 32 39 |du on Tu|e Aug 29|
|00000040| 20 31 34 3a 32 30 3a 31 | 33 20 31 39 39 35 0a 3b | 14:20:1|3 1995.;|
|00000050| 3b 3b 20 66 72 6f 6d 20 | 66 69 6c 65 20 2f 78 65 |;; from |file /xe|
|00000060| 6d 61 63 73 2f 78 65 6d | 61 63 73 2d 31 39 2e 31 |macs/xem|acs-19.1|
|00000070| 33 2d 72 65 6c 65 61 73 | 65 2f 65 64 69 74 6f 72 |3-releas|e/editor|
|00000080| 2f 6c 69 73 70 2f 70 72 | 69 6d 2f 64 65 62 75 67 |/lisp/pr|im/debug|
|00000090| 2e 65 6c 0a 3b 3b 3b 20 | 65 6d 61 63 73 20 76 65 |.el.;;; |emacs ve|
|000000a0| 72 73 69 6f 6e 20 31 39 | 2e 31 33 20 58 45 6d 61 |rsion 19|.13 XEma|
|000000b0| 63 73 20 4c 75 63 69 64 | 2e 0a 3b 3b 3b 20 62 79 |cs Lucid|..;;; by|
|000000c0| 74 65 63 6f 6d 70 20 76 | 65 72 73 69 6f 6e 20 32 |tecomp v|ersion 2|
|000000d0| 2e 32 35 3b 20 31 2d 53 | 65 70 2d 39 34 2e 0a 3b |.25; 1-S|ep-94..;|
|000000e0| 3b 3b 20 6f 70 74 69 6d | 69 7a 61 74 69 6f 6e 20 |;; optim|ization |
|000000f0| 69 73 20 6f 6e 2e 0a 3b | 3b 3b 20 74 68 69 73 20 |is on..;|;; this |
|00000100| 66 69 6c 65 20 75 73 65 | 73 20 6f 70 63 6f 64 65 |file use|s opcode|
|00000110| 73 20 77 68 69 63 68 20 | 64 6f 20 6e 6f 74 20 65 |s which |do not e|
|00000120| 78 69 73 74 20 69 6e 20 | 45 6d 61 63 73 20 31 38 |xist in |Emacs 18|
|00000130| 2e 0a 0a 28 69 66 20 28 | 61 6e 64 20 28 62 6f 75 |...(if (|and (bou|
|00000140| 6e 64 70 20 27 65 6d 61 | 63 73 2d 76 65 72 73 69 |ndp 'ema|cs-versi|
|00000150| 6f 6e 29 0a 09 20 28 6f | 72 20 28 61 6e 64 20 28 |on).. (o|r (and (|
|00000160| 62 6f 75 6e 64 70 20 27 | 65 70 6f 63 68 3a 3a 76 |boundp '|epoch::v|
|00000170| 65 72 73 69 6f 6e 29 20 | 65 70 6f 63 68 3a 3a 76 |ersion) |epoch::v|
|00000180| 65 72 73 69 6f 6e 29 0a | 09 20 20 20 20 20 28 73 |ersion).|.     (s|
|00000190| 74 72 69 6e 67 2d 6c 65 | 73 73 70 20 65 6d 61 63 |tring-le|ssp emac|
|000001a0| 73 2d 76 65 72 73 69 6f | 6e 20 22 31 39 22 29 29 |s-versio|n "19"))|
|000001b0| 29 0a 20 20 20 20 28 65 | 72 72 6f 72 20 22 54 68 |).    (e|rror "Th|
|000001c0| 69 73 20 66 69 6c 65 20 | 77 61 73 20 63 6f 6d 70 |is file |was comp|
|000001d0| 69 6c 65 64 20 66 6f 72 | 20 45 6d 61 63 73 20 31 |iled for| Emacs 1|
|000001e0| 39 2e 22 29 29 0a 0a 28 | 64 65 66 76 61 72 20 64 |9."))..(|defvar d|
|000001f0| 65 62 75 67 2d 66 75 6e | 63 74 69 6f 6e 2d 6c 69 |ebug-fun|ction-li|
|00000200| 73 74 20 6e 69 6c 20 22 | 5c 0a 4c 69 73 74 20 6f |st nil "|\.List o|
|00000210| 66 20 66 75 6e 63 74 69 | 6f 6e 73 20 63 75 72 72 |f functi|ons curr|
|00000220| 65 6e 74 6c 79 20 73 65 | 74 20 66 6f 72 20 64 65 |ently se|t for de|
|00000230| 62 75 67 20 6f 6e 20 65 | 6e 74 72 79 2e 22 29 0a |bug on e|ntry.").|
|00000240| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 11 c0 87 |(byte-co|de "....|
|00000250| 22 20 5b 64 65 62 75 67 | 20 64 65 62 75 67 67 65 |" [debug| debugge|
|00000260| 72 5d 20 31 29 0a 28 66 | 73 65 74 20 27 64 65 62 |r] 1).(f|set 'deb|
|00000270| 75 67 20 23 5b 28 26 72 | 65 73 74 20 64 65 62 75 |ug #[(&r|est debu|
|00000280| 67 67 65 72 2d 61 72 67 | 73 29 20 22 c0 c1 21 88 |gger-arg|s) "..!.|
|00000290| c2 89 89 89 c3 1c c5 c6 | 21 29 70 c2 89 c7 20 0e |........|!)p... .|
|000002a0| 08 0e 09 0e 5c 6e 0e 0b | 0e 0c 0e 0d 0e 0e 0e 0f |....\n..|........|
|000002b0| 0e 10 0e 11 0e 12 1e 13 | 1e 14 1e 15 1e 16 1e 17 |........|........|
|000002c0| 1e 18 1e 19 1e 1a 1e 1b | 1e 1c 1e 1d 1e 1e 1e 1f |........|........|
|000002d0| 1e 20 1e 21 1e 5c 22 1e | 23 1e 24 1e 25 1e 26 e7 |. .!.\".|#.$.%.&.|
|000002e0| 8e c2 89 89 e8 20 e9 c2 | e8 20 e9 ea 89 c2 1e 12 |..... ..|. ......|
|000002f0| 1e 11 1e 10 1e 0f 1e 0e | 1e 0d 1e 0c 1e 0b 1e 5c |........|.......\|
|00000300| 6e 1e 09 1e 08 8a eb 8b | 88 0e 26 2e 21 87 22 20 |n.......|..&.!." |
|00000310| 5b 6d 65 73 73 61 67 65 | 20 22 45 6e 74 65 72 69 |[message| "Enteri|
|00000320| 6e 67 20 64 65 62 75 67 | 67 65 72 2e 2e 2e 22 20 |ng debug|ger..." |
|00000330| 6e 69 6c 20 66 75 6e 64 | 61 6d 65 6e 74 61 6c 2d |nil fund|amental-|
|00000340| 6d 6f 64 65 20 64 65 66 | 61 75 6c 74 2d 6d 61 6a |mode def|ault-maj|
|00000350| 6f 72 2d 6d 6f 64 65 20 | 67 65 74 2d 62 75 66 66 |or-mode |get-buff|
|00000360| 65 72 2d 63 72 65 61 74 | 65 20 22 2a 42 61 63 6b |er-creat|e "*Back|
|00000370| 74 72 61 63 65 2a 22 20 | 6d 61 74 63 68 2d 64 61 |trace*" |match-da|
|00000380| 74 61 20 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 20 |ta last-|command |
|00000390| 74 68 69 73 2d 63 6f 6d | 6d 61 6e 64 20 75 6e 72 |this-com|mand unr|
|000003a0| 65 61 64 2d 63 6f 6d 6d | 61 6e 64 2d 65 76 65 6e |ead-comm|and-even|
|000003b0| 74 20 6c 61 73 74 2d 69 | 6e 70 75 74 2d 65 76 65 |t last-i|nput-eve|
|000003c0| 6e 74 20 6c 61 73 74 2d | 69 6e 70 75 74 2d 63 68 |nt last-|input-ch|
|000003d0| 61 72 20 6c 61 73 74 2d | 69 6e 70 75 74 2d 74 69 |ar last-|input-ti|
|000003e0| 6d 65 20 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |me last-|command-|
|000003f0| 65 76 65 6e 74 20 6c 61 | 73 74 2d 63 6f 6d 6d 61 |event la|st-comma|
|00000400| 6e 64 2d 63 68 61 72 20 | 73 74 61 6e 64 61 72 64 |nd-char |standard|
|00000410| 2d 69 6e 70 75 74 20 73 | 74 61 6e 64 61 72 64 2d |-input s|tandard-|
|00000420| 6f 75 74 70 75 74 20 63 | 75 72 73 6f 72 2d 69 6e |output c|ursor-in|
|00000430| 2d 65 63 68 6f 2d 61 72 | 65 61 20 64 65 62 75 67 |-echo-ar|ea debug|
|00000440| 67 65 72 2d 6f 75 74 65 | 72 2d 63 75 72 73 6f 72 |ger-oute|r-cursor|
|00000450| 2d 69 6e 2d 65 63 68 6f | 2d 61 72 65 61 20 64 65 |-in-echo|-area de|
|00000460| 62 75 67 67 65 72 2d 6f | 75 74 65 72 2d 73 74 61 |bugger-o|uter-sta|
|00000470| 6e 64 61 72 64 2d 6f 75 | 74 70 75 74 20 64 65 62 |ndard-ou|tput deb|
|00000480| 75 67 67 65 72 2d 6f 75 | 74 65 72 2d 73 74 61 6e |ugger-ou|ter-stan|
|00000490| 64 61 72 64 2d 69 6e 70 | 75 74 20 64 65 62 75 67 |dard-inp|ut debug|
|000004a0| 67 65 72 2d 6f 75 74 65 | 72 2d 6c 61 73 74 2d 63 |ger-oute|r-last-c|
|000004b0| 6f 6d 6d 61 6e 64 2d 63 | 68 61 72 20 64 65 62 75 |ommand-c|har debu|
|000004c0| 67 67 65 72 2d 6f 75 74 | 65 72 2d 6c 61 73 74 2d |gger-out|er-last-|
|000004d0| 63 6f 6d 6d 61 6e 64 2d | 65 76 65 6e 74 20 64 65 |command-|event de|
|000004e0| 62 75 67 67 65 72 2d 6f | 75 74 65 72 2d 6c 61 73 |bugger-o|uter-las|
|000004f0| 74 2d 69 6e 70 75 74 2d | 74 69 6d 65 20 64 65 62 |t-input-|time deb|
|00000500| 75 67 67 65 72 2d 6f 75 | 74 65 72 2d 6c 61 73 74 |ugger-ou|ter-last|
|00000510| 2d 69 6e 70 75 74 2d 63 | 68 61 72 20 64 65 62 75 |-input-c|har debu|
|00000520| 67 67 65 72 2d 6f 75 74 | 65 72 2d 6c 61 73 74 2d |gger-out|er-last-|
|00000530| 69 6e 70 75 74 2d 65 76 | 65 6e 74 20 64 65 62 75 |input-ev|ent debu|
|00000540| 67 67 65 72 2d 6f 75 74 | 65 72 2d 75 6e 72 65 61 |gger-out|er-unrea|
|00000550| 64 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 20 |d-comman|d-event |
|00000560| 64 65 62 75 67 67 65 72 | 2d 6f 75 74 65 72 2d 74 |debugger|-outer-t|
|00000570| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 20 64 65 62 75 |his-comm|and debu|
|00000580| 67 67 65 72 2d 6f 75 74 | 65 72 2d 6c 61 73 74 2d |gger-out|er-last-|
|00000590| 63 6f 6d 6d 61 6e 64 20 | 64 65 62 75 67 67 65 72 |command |debugger|
|000005a0| 2d 6f 75 74 65 72 2d 6d | 61 74 63 68 2d 64 61 74 |-outer-m|atch-dat|
|000005b0| 61 20 65 78 65 63 75 74 | 69 6e 67 2d 6d 61 63 72 |a execut|ing-macr|
|000005c0| 6f 20 64 65 62 75 67 67 | 65 72 2d 73 74 65 70 2d |o debugg|er-step-|
|000005d0| 61 66 74 65 72 2d 65 78 | 69 74 20 64 65 62 75 67 |after-ex|it debug|
|000005e0| 67 65 72 2d 6f 6c 64 2d | 62 75 66 66 65 72 20 64 |ger-old-|buffer d|
|000005f0| 65 62 75 67 67 65 72 2d | 62 75 66 66 65 72 20 64 |ebugger-|buffer d|
|00000600| 65 62 75 67 2d 6f 6e 2d | 73 69 67 6e 61 6c 20 64 |ebug-on-|signal d|
|00000610| 65 62 75 67 2d 6f 6e 2d | 71 75 69 74 20 64 65 62 |ebug-on-|quit deb|
|00000620| 75 67 2d 6f 6e 2d 65 72 | 72 6f 72 20 64 65 62 75 |ug-on-er|ror debu|
|00000630| 67 67 65 72 2d 76 61 6c | 75 65 20 28 28 62 79 74 |gger-val|ue ((byt|
|00000640| 65 2d 63 6f 64 65 20 22 | c0 09 c2 5c 22 ab 8d 8a |e-code "|...\"...|
|00000650| 09 71 88 c3 20 88 c4 20 | 88 29 aa 84 c5 09 21 88 |.q.. .. |.)....!.|
|00000660| c6 0e 07 21 88 0e 08 16 | 09 0e 5c 6e 16 0b 0e 0c |...!....|..\n....|
|00000670| 16 0d 0e 0e 16 0f 0e 10 | 16 11 0e 12 16 13 0e 14 |........|........|
|00000680| 16 15 0e 16 16 17 0e 18 | 16 19 0e 1a 16 1b 0e 1c |........|........|
|00000690| 16 1d 0e 1e 16 1f c0 87 | 22 20 5b 67 65 74 2d 62 |........|" [get-b|
|000006a0| 75 66 66 65 72 2d 77 69 | 6e 64 6f 77 20 64 65 62 |uffer-wi|ndow deb|
|000006b0| 75 67 67 65 72 2d 62 75 | 66 66 65 72 20 76 69 73 |ugger-bu|ffer vis|
|000006c0| 69 62 6c 65 20 65 72 61 | 73 65 2d 62 75 66 66 65 |ible era|se-buffe|
|000006d0| 72 20 66 75 6e 64 61 6d | 65 6e 74 61 6c 2d 6d 6f |r fundam|ental-mo|
|000006e0| 64 65 20 6b 69 6c 6c 2d | 62 75 66 66 65 72 20 73 |de kill-|buffer s|
|000006f0| 74 6f 72 65 2d 6d 61 74 | 63 68 2d 64 61 74 61 20 |tore-mat|ch-data |
|00000700| 64 65 62 75 67 67 65 72 | 2d 6f 75 74 65 72 2d 6d |debugger|-outer-m|
|00000710| 61 74 63 68 2d 64 61 74 | 61 20 64 65 62 75 67 67 |atch-dat|a debugg|
|00000720| 65 72 2d 6f 75 74 65 72 | 2d 6c 61 73 74 2d 63 6f |er-outer|-last-co|
|00000730| 6d 6d 61 6e 64 20 6c 61 | 73 74 2d 63 6f 6d 6d 61 |mmand la|st-comma|
|00000740| 6e 64 20 64 65 62 75 67 | 67 65 72 2d 6f 75 74 65 |nd debug|ger-oute|
|00000750| 72 2d 74 68 69 73 2d 63 | 6f 6d 6d 61 6e 64 20 74 |r-this-c|ommand t|
|00000760| 68 69 73 2d 63 6f 6d 6d | 61 6e 64 20 64 65 62 75 |his-comm|and debu|
|00000770| 67 67 65 72 2d 6f 75 74 | 65 72 2d 75 6e 72 65 61 |gger-out|er-unrea|
|00000780| 64 2d 63 6f 6d 6d 61 6e | 64 2d 65 76 65 6e 74 20 |d-comman|d-event |
|00000790| 75 6e 72 65 61 64 2d 63 | 6f 6d 6d 61 6e 64 2d 65 |unread-c|ommand-e|
|000007a0| 76 65 6e 74 20 64 65 62 | 75 67 67 65 72 2d 6f 75 |vent deb|ugger-ou|
|000007b0| 74 65 72 2d 6c 61 73 74 | 2d 69 6e 70 75 74 2d 65 |ter-last|-input-e|
|000007c0| 76 65 6e 74 20 6c 61 73 | 74 2d 69 6e 70 75 74 2d |vent las|t-input-|
|000007d0| 65 76 65 6e 74 20 64 65 | 62 75 67 67 65 72 2d 6f |event de|bugger-o|
|000007e0| 75 74 65 72 2d 6c 61 73 | 74 2d 69 6e 70 75 74 2d |uter-las|t-input-|
|000007f0| 63 68 61 72 20 6c 61 73 | 74 2d 69 6e 70 75 74 2d |char las|t-input-|
|00000800| 63 68 61 72 20 64 65 62 | 75 67 67 65 72 2d 6f 75 |char deb|ugger-ou|
|00000810| 74 65 72 2d 6c 61 73 74 | 2d 69 6e 70 75 74 2d 74 |ter-last|-input-t|
|00000820| 69 6d 65 20 6c 61 73 74 | 2d 69 6e 70 75 74 2d 74 |ime last|-input-t|
|00000830| 69 6d 65 20 64 65 62 75 | 67 67 65 72 2d 6f 75 74 |ime debu|gger-out|
|00000840| 65 72 2d 6c 61 73 74 2d | 63 6f 6d 6d 61 6e 64 2d |er-last-|command-|
|00000850| 65 76 65 6e 74 20 6c 61 | 73 74 2d 63 6f 6d 6d 61 |event la|st-comma|
|00000860| 6e 64 2d 65 76 65 6e 74 | 20 64 65 62 75 67 67 65 |nd-event| debugge|
|00000870| 72 2d 6f 75 74 65 72 2d | 6c 61 73 74 2d 63 6f 6d |r-outer-|last-com|
|00000880| 6d 61 6e 64 2d 63 68 61 | 72 20 6c 61 73 74 2d 63 |mand-cha|r last-c|
|00000890| 6f 6d 6d 61 6e 64 2d 63 | 68 61 72 20 64 65 62 75 |ommand-c|har debu|
|000008a0| 67 67 65 72 2d 6f 75 74 | 65 72 2d 73 74 61 6e 64 |gger-out|er-stand|
|000008b0| 61 72 64 2d 69 6e 70 75 | 74 20 73 74 61 6e 64 61 |ard-inpu|t standa|
|000008c0| 72 64 2d 69 6e 70 75 74 | 20 64 65 62 75 67 67 65 |rd-input| debugge|
|000008d0| 72 2d 6f 75 74 65 72 2d | 73 74 61 6e 64 61 72 64 |r-outer-|standard|
|000008e0| 2d 6f 75 74 70 75 74 20 | 73 74 61 6e 64 61 72 64 |-output |standard|
|000008f0| 2d 6f 75 74 70 75 74 20 | 64 65 62 75 67 67 65 72 |-output |debugger|
|00000900| 2d 6f 75 74 65 72 2d 63 | 75 72 73 6f 72 2d 69 6e |-outer-c|ursor-in|
|00000910| 2d 65 63 68 6f 2d 61 72 | 65 61 20 63 75 72 73 6f |-echo-ar|ea curso|
|00000920| 72 2d 69 6e 2d 65 63 68 | 6f 2d 61 72 65 61 20 64 |r-in-ech|o-area d|
|00000930| 65 62 75 67 67 65 72 2d | 73 74 65 70 2d 61 66 74 |ebugger-|step-aft|
|00000940| 65 72 2d 65 78 69 74 20 | 64 65 62 75 67 2d 6f 6e |er-exit |debug-on|
|00000950| 2d 6e 65 78 74 2d 63 61 | 6c 6c 5d 20 33 29 29 20 |-next-ca|ll] 3)) |
|00000960| 61 6c 6c 6f 63 61 74 65 | 2d 65 76 65 6e 74 20 2d |allocate|-event -|
|00000970| 31 20 74 20 28 28 62 79 | 74 65 2d 63 6f 64 65 20 |1 t ((by|te-code |
|00000980| 22 c0 09 21 88 c2 20 88 | 70 c3 c4 1d 1e 06 1e 07 |"..!.. .|p.......|
|00000990| c8 20 88 2b 65 62 88 c9 | 20 88 60 ca cb 21 88 cc |. .+eb..| .`..!..|
|000009a0| 79 88 60 7c 88 cd 20 88 | 0e 0e 40 cf 3e ab 9b d0 |y.`|.. .|..@.>...|
|000009b0| 63 88 0e 0e 40 d1 3d ab | ee d2 d3 c3 5c 22 88 d4 |c...@.=.|....\"..|
|000009c0| cc 21 88 d5 63 88 d6 79 | 88 aa dd 0e 0e 40 d7 3d |.!..c..y|.....@.=|
|000009d0| ab 9e d8 63 88 0e 0e 41 | 40 16 19 da 0e 19 70 5c |...c...A|@.....p\|
|000009e0| 22 88 db 63 88 d4 cc 21 | 88 dc 63 88 d6 79 88 aa |"..c...!|..c..y..|
|000009f0| b8 0e 0e 40 dd 3d ab 90 | de 63 88 da 0e 0e 41 40 |...@.=..|.c....A@|
|00000a00| 70 5c 22 88 db 63 88 aa | a1 0e 0e 40 c3 3d ab 85 |p\"..c..|...@.=..|
|00000a10| df 63 88 aa 95 da 0e 0e | 40 e0 3d ab 85 0e 0e 41 |.c......|@.=....A|
|00000a20| aa 82 0e 0e 70 5c 22 88 | db 63 88 e1 e2 21 88 c3 |....p\".|.c...!..|
|00000a30| e0 c3 1e 23 1e 07 1e 24 | e1 e0 21 88 e5 20 88 2b |...#...$|..!.. .+|
|00000a40| e0 87 22 20 5b 70 6f 70 | 2d 74 6f 2d 62 75 66 66 |.." [pop|-to-buff|
|00000a50| 65 72 20 64 65 62 75 67 | 67 65 72 2d 62 75 66 66 |er debug|ger-buff|
|00000a60| 65 72 20 65 72 61 73 65 | 2d 62 75 66 66 65 72 20 |er erase|-buffer |
|00000a70| 74 20 35 30 20 70 72 69 | 6e 74 2d 6c 65 6e 67 74 |t 50 pri|nt-lengt|
|00000a80| 68 20 70 72 69 6e 74 2d | 65 73 63 61 70 65 2d 6e |h print-|escape-n|
|00000a90| 65 77 6c 69 6e 65 73 20 | 73 74 61 6e 64 61 72 64 |ewlines |standard|
|00000aa0| 2d 6f 75 74 70 75 74 20 | 62 61 63 6b 74 72 61 63 |-output |backtrac|
|00000ab0| 65 20 64 65 62 75 67 67 | 65 72 2d 6d 6f 64 65 20 |e debugg|er-mode |
|00000ac0| 72 65 2d 73 65 61 72 63 | 68 2d 66 6f 72 77 61 72 |re-searc|h-forwar|
|00000ad0| 64 20 22 5c 6e 5b 2a 20 | 5d 20 64 65 62 75 67 28 |d "\n[* |] debug(|
|00000ae0| 22 20 31 20 64 65 62 75 | 67 67 65 72 2d 72 65 65 |" 1 debu|gger-ree|
|00000af0| 6e 61 62 6c 65 20 64 65 | 62 75 67 67 65 72 2d 61 |nable de|bugger-a|
|00000b00| 72 67 73 20 28 6c 61 6d | 62 64 61 20 64 65 62 75 |rgs (lam|bda debu|
|00000b10| 67 29 20 22 45 6e 74 65 | 72 69 6e 67 3a 5c 6e 22 |g) "Ente|ring:\n"|
|00000b20| 20 64 65 62 75 67 20 62 | 61 63 6b 74 72 61 63 65 | debug b|acktrace|
|00000b30| 2d 64 65 62 75 67 20 34 | 20 64 65 6c 65 74 65 2d |-debug 4| delete-|
|00000b40| 63 68 61 72 20 34 32 20 | 30 20 65 78 69 74 20 22 |char 42 |0 exit "|
|00000b50| 52 65 74 75 72 6e 20 76 | 61 6c 75 65 3a 20 22 20 |Return v|alue: " |
|00000b60| 64 65 62 75 67 67 65 72 | 2d 76 61 6c 75 65 20 70 |debugger|-value p|
|00000b70| 72 69 6e 31 20 31 30 20 | 33 32 20 65 72 72 6f 72 |rin1 10 |32 error|
|00000b80| 20 22 53 69 67 6e 61 6c | 6c 69 6e 67 3a 20 22 20 | "Signal|ling: " |
|00000b90| 22 42 65 67 69 6e 6e 69 | 6e 67 20 65 76 61 6c 75 |"Beginni|ng evalu|
|00000ba0| 61 74 69 6f 6e 20 6f 66 | 20 66 75 6e 63 74 69 6f |ation of| functio|
|00000bb0| 6e 20 63 61 6c 6c 20 66 | 6f 72 6d 3a 5c 6e 22 20 |n call f|orm:\n" |
|00000bc0| 6e 69 6c 20 6d 65 73 73 | 61 67 65 20 22 22 20 62 |nil mess|age "" b|
|00000bd0| 75 66 66 65 72 2d 72 65 | 61 64 2d 6f 6e 6c 79 20 |uffer-re|ad-only |
|00000be0| 69 6e 68 69 62 69 74 2d | 74 72 61 63 65 20 72 65 |inhibit-|trace re|
|00000bf0| 63 75 72 73 69 76 65 2d | 65 64 69 74 5d 20 33 29 |cursive-|edit] 3)|
|00000c00| 29 5d 20 32 30 20 22 5c | 0a 45 6e 74 65 72 20 64 |)] 20 "\|.Enter d|
|00000c10| 65 62 75 67 67 65 72 2e | 20 20 54 6f 20 72 65 74 |ebugger.|  To ret|
|00000c20| 75 72 6e 2c 20 74 79 70 | 65 20 5c 5c 3c 64 65 62 |urn, typ|e \\<deb|
|00000c30| 75 67 67 65 72 2d 6d 6f | 64 65 2d 6d 61 70 3e 60 |ugger-mo|de-map>`|
|00000c40| 5c 5c 5b 64 65 62 75 67 | 67 65 72 2d 63 6f 6e 74 |\\[debug|ger-cont|
|00000c50| 69 6e 75 65 5d 27 2e 0a | 41 72 67 75 6d 65 6e 74 |inue]'..|Argument|
|00000c60| 73 20 61 72 65 20 6d 61 | 69 6e 6c 79 20 66 6f 72 |s are ma|inly for|
|00000c70| 20 75 73 65 20 77 68 65 | 6e 20 74 68 69 73 20 69 | use whe|n this i|
|00000c80| 73 20 63 61 6c 6c 65 64 | 0a 20 66 72 6f 6d 20 74 |s called|. from t|
|00000c90| 68 65 20 69 6e 74 65 72 | 6e 61 6c 73 20 6f 66 20 |he inter|nals of |
|00000ca0| 74 68 65 20 65 76 61 6c | 75 61 74 6f 72 2e 0a 59 |the eval|uator..Y|
|00000cb0| 6f 75 20 6d 61 79 20 63 | 61 6c 6c 20 77 69 74 68 |ou may c|all with|
|00000cc0| 20 6e 6f 20 61 72 67 73 | 2c 20 6f 72 20 79 6f 75 | no args|, or you|
|00000cd0| 20 6d 61 79 0a 20 70 61 | 73 73 20 6e 69 6c 20 61 | may. pa|ss nil a|
|00000ce0| 73 20 74 68 65 20 66 69 | 72 73 74 20 61 72 67 20 |s the fi|rst arg |
|00000cf0| 61 6e 64 20 61 6e 79 20 | 6f 74 68 65 72 20 61 72 |and any |other ar|
|00000d00| 67 73 20 79 6f 75 20 6c | 69 6b 65 2e 0a 20 49 6e |gs you l|ike.. In|
|00000d10| 20 74 68 61 74 20 63 61 | 73 65 2c 20 74 68 65 20 | that ca|se, the |
|00000d20| 6c 69 73 74 20 6f 66 20 | 61 72 67 73 20 61 66 74 |list of |args aft|
|00000d30| 65 72 20 74 68 65 20 66 | 69 72 73 74 20 77 69 6c |er the f|irst wil|
|00000d40| 6c 20 0a 20 62 65 20 70 | 72 69 6e 74 65 64 20 69 |l . be p|rinted i|
|00000d50| 6e 74 6f 20 74 68 65 20 | 62 61 63 6b 74 72 61 63 |nto the |backtrac|
|00000d60| 65 20 62 75 66 66 65 72 | 2e 22 5d 29 0a 28 66 73 |e buffer|."]).(fs|
|00000d70| 65 74 20 27 64 65 62 75 | 67 67 65 72 2d 65 78 69 |et 'debu|gger-exi|
|00000d80| 74 20 23 5b 6e 69 6c 20 | 22 c0 c1 c2 8f 87 22 20 |t #[nil |"....." |
|00000d90| 5b 6e 69 6c 20 28 62 79 | 74 65 2d 63 6f 64 65 20 |[nil (by|te-code |
|00000da0| 22 c0 89 19 1a c3 c4 c5 | 5c 22 2a 87 22 20 5b 6e |".......|\"*." [n|
|00000db0| 69 6c 20 64 65 62 75 67 | 2d 6f 6e 2d 73 69 67 6e |il debug|-on-sign|
|00000dc0| 61 6c 20 64 65 62 75 67 | 2d 6f 6e 2d 65 72 72 6f |al debug|-on-erro|
|00000dd0| 72 20 74 68 72 6f 77 20 | 64 65 62 75 67 67 65 72 |r throw |debugger|
|00000de0| 20 74 5d 20 33 29 20 28 | 28 6e 6f 2d 63 61 74 63 | t] 3) (|(no-catc|
|00000df0| 68 20 28 65 78 69 74 2d | 72 65 63 75 72 73 69 76 |h (exit-|recursiv|
|00000e00| 65 2d 65 64 69 74 29 29 | 29 5d 20 33 5d 29 0a 28 |e-edit))|)] 3]).(|
|00000e10| 66 73 65 74 20 27 64 65 | 62 75 67 67 65 72 2d 73 |fset 'de|bugger-s|
|00000e20| 74 65 70 2d 74 68 72 6f | 75 67 68 20 23 5b 6e 69 |tep-thro|ugh #[ni|
|00000e30| 6c 20 22 c0 11 c2 c3 21 | 88 c4 20 87 22 20 5b 74 |l "....!|.. ." [t|
|00000e40| 20 64 65 62 75 67 67 65 | 72 2d 73 74 65 70 2d 61 | debugge|r-step-a|
|00000e50| 66 74 65 72 2d 65 78 69 | 74 20 6d 65 73 73 61 67 |fter-exi|t messag|
|00000e60| 65 20 22 50 72 6f 63 65 | 65 64 69 6e 67 2c 20 77 |e "Proce|eding, w|
|00000e70| 69 6c 6c 20 64 65 62 75 | 67 20 6f 6e 20 6e 65 78 |ill debu|g on nex|
|00000e80| 74 20 65 76 61 6c 20 6f | 72 20 63 61 6c 6c 2e 22 |t eval o|r call."|
|00000e90| 20 64 65 62 75 67 67 65 | 72 2d 65 78 69 74 5d 20 | debugge|r-exit] |
|00000ea0| 32 20 22 5c 0a 50 72 6f | 63 65 65 64 2c 20 73 74 |2 "\.Pro|ceed, st|
|00000eb0| 65 70 70 69 6e 67 20 74 | 68 72 6f 75 67 68 20 73 |epping t|hrough s|
|00000ec0| 75 62 65 78 70 72 65 73 | 73 69 6f 6e 73 20 6f 66 |ubexpres|sions of|
|00000ed0| 20 74 68 69 73 20 65 78 | 70 72 65 73 73 69 6f 6e | this ex|pression|
|00000ee0| 2e 0a 45 6e 74 65 72 20 | 61 6e 6f 74 68 65 72 20 |..Enter |another |
|00000ef0| 64 65 62 75 67 67 65 72 | 20 6f 6e 20 6e 65 78 74 |debugger| on next|
|00000f00| 20 65 6e 74 72 79 20 74 | 6f 20 65 76 61 6c 2c 20 | entry t|o eval, |
|00000f10| 61 70 70 6c 79 20 6f 72 | 20 66 75 6e 63 61 6c 6c |apply or| funcall|
|00000f20| 2e 22 20 6e 69 6c 5d 29 | 0a 28 66 73 65 74 20 27 |." nil])|.(fset '|
|00000f30| 64 65 62 75 67 67 65 72 | 2d 63 6f 6e 74 69 6e 75 |debugger|-continu|
|00000f40| 65 20 23 5b 6e 69 6c 20 | 22 c0 c1 21 88 c2 20 87 |e #[nil |"..!.. .|
|00000f50| 22 20 5b 6d 65 73 73 61 | 67 65 20 22 43 6f 6e 74 |" [messa|ge "Cont|
|00000f60| 69 6e 75 69 6e 67 2e 22 | 20 64 65 62 75 67 67 65 |inuing."| debugge|
|00000f70| 72 2d 65 78 69 74 5d 20 | 32 20 22 5c 0a 43 6f 6e |r-exit] |2 "\.Con|
|00000f80| 74 69 6e 75 65 2c 20 65 | 76 61 6c 75 61 74 69 6e |tinue, e|valuatin|
|00000f90| 67 20 74 68 69 73 20 65 | 78 70 72 65 73 73 69 6f |g this e|xpressio|
|00000fa0| 6e 20 77 69 74 68 6f 75 | 74 20 73 74 6f 70 70 69 |n withou|t stoppi|
|00000fb0| 6e 67 2e 22 20 6e 69 6c | 5d 29 0a 28 66 73 65 74 |ng." nil|]).(fset|
|00000fc0| 20 27 64 65 62 75 67 67 | 65 72 2d 72 65 74 75 72 | 'debugg|er-retur|
|00000fd0| 6e 2d 76 61 6c 75 65 20 | 23 5b 28 76 61 6c 29 20 |n-value |#[(val) |
|00000fe0| 22 08 11 c2 c3 c4 5c 22 | 88 c5 09 21 88 c6 20 87 |".....\"|...!.. .|
|00000ff0| 22 20 5b 76 61 6c 20 64 | 65 62 75 67 67 65 72 2d |" [val d|ebugger-|
|00001000| 76 61 6c 75 65 20 70 72 | 69 6e 63 20 22 52 65 74 |value pr|inc "Ret|
|00001010| 75 72 6e 69 6e 67 20 22 | 20 74 20 70 72 69 6e 31 |urning "| t prin1|
|00001020| 20 65 78 69 74 2d 72 65 | 63 75 72 73 69 76 65 2d | exit-re|cursive-|
|00001030| 65 64 69 74 5d 20 33 20 | 22 5c 0a 43 6f 6e 74 69 |edit] 3 |"\.Conti|
|00001040| 6e 75 65 2c 20 73 70 65 | 63 69 66 79 69 6e 67 20 |nue, spe|cifying |
|00001050| 76 61 6c 75 65 20 74 6f | 20 72 65 74 75 72 6e 2e |value to| return.|
|00001060| 0a 54 68 69 73 20 69 73 | 20 6f 6e 6c 79 20 75 73 |.This is| only us|
|00001070| 65 66 75 6c 20 77 68 65 | 6e 20 74 68 65 20 76 61 |eful whe|n the va|
|00001080| 6c 75 65 20 72 65 74 75 | 72 6e 65 64 20 66 72 6f |lue retu|rned fro|
|00001090| 6d 20 74 68 65 20 64 65 | 62 75 67 67 65 72 0a 77 |m the de|bugger.w|
|000010a0| 69 6c 6c 20 62 65 20 75 | 73 65 64 2c 20 73 75 63 |ill be u|sed, suc|
|000010b0| 68 20 61 73 20 69 6e 20 | 61 20 64 65 62 75 67 20 |h as in |a debug |
|000010c0| 6f 6e 20 65 78 69 74 20 | 66 72 6f 6d 20 61 20 66 |on exit |from a f|
|000010d0| 72 61 6d 65 2e 22 20 22 | 58 52 65 74 75 72 6e 20 |rame." "|XReturn |
|000010e0| 76 61 6c 75 65 20 28 65 | 76 61 6c 75 61 74 65 64 |value (e|valuated|
|000010f0| 29 3a 20 22 5d 29 0a 28 | 64 65 66 63 6f 6e 73 74 |): "]).(|defconst|
|00001100| 20 64 65 62 75 67 67 65 | 72 2d 66 72 61 6d 65 2d | debugge|r-frame-|
|00001110| 6f 66 66 73 65 74 20 38 | 20 22 5c 0a 22 29 0a 28 |offset 8| "\.").(|
|00001120| 66 73 65 74 20 27 64 65 | 62 75 67 67 65 72 2d 6a |fset 'de|bugger-j|
|00001130| 75 6d 70 20 23 5b 6e 69 | 6c 20 22 08 c1 5c 5c 18 |ump #[ni|l "..\\.|
|00001140| c2 20 88 29 0b 89 1c ab | 92 0c 40 c5 0c 40 0c 40 |. .)....|..@..@.@|
|00001150| 4b c6 23 4d 88 0c 41 89 | 14 ac 6e 29 c7 c8 21 88 |K.#M..A.|..n)..!.|
|00001160| c9 20 87 22 20 5b 64 65 | 62 75 67 67 65 72 2d 66 |. ." [de|bugger-f|
|00001170| 72 61 6d 65 2d 6f 66 66 | 73 65 74 20 32 20 64 65 |rame-off|set 2 de|
|00001180| 62 75 67 67 65 72 2d 66 | 72 61 6d 65 20 64 65 62 |bugger-f|rame deb|
|00001190| 75 67 2d 66 75 6e 63 74 | 69 6f 6e 2d 6c 69 73 74 |ug-funct|ion-list|
|000011a0| 20 6c 69 73 74 20 64 65 | 62 75 67 2d 6f 6e 2d 65 | list de|bug-on-e|
|000011b0| 6e 74 72 79 2d 31 20 6e | 69 6c 20 6d 65 73 73 61 |ntry-1 n|il messa|
|000011c0| 67 65 20 22 43 6f 6e 74 | 69 6e 75 69 6e 67 20 74 |ge "Cont|inuing t|
|000011d0| 68 72 6f 75 67 68 20 74 | 68 69 73 20 66 72 61 6d |hrough t|his fram|
|000011e0| 65 22 20 64 65 62 75 67 | 67 65 72 2d 65 78 69 74 |e" debug|ger-exit|
|000011f0| 5d 20 36 20 22 5c 0a 43 | 6f 6e 74 69 6e 75 65 20 |] 6 "\.C|ontinue |
|00001200| 74 6f 20 65 78 69 74 20 | 66 72 6f 6d 20 74 68 69 |to exit |from thi|
|00001210| 73 20 66 72 61 6d 65 2c | 20 77 69 74 68 20 61 6c |s frame,| with al|
|00001220| 6c 20 64 65 62 75 67 2d | 6f 6e 2d 65 6e 74 72 79 |l debug-|on-entry|
|00001230| 20 73 75 73 70 65 6e 64 | 65 64 2e 22 20 6e 69 6c | suspend|ed." nil|
|00001240| 5d 29 0a 28 66 73 65 74 | 20 27 64 65 62 75 67 67 |]).(fset| 'debugg|
|00001250| 65 72 2d 72 65 65 6e 61 | 62 6c 65 20 23 5b 6e 69 |er-reena|ble #[ni|
|00001260| 6c 20 22 08 89 19 ad 9e | 09 40 4b 3a ac 85 c2 09 |l ".....|.@K:....|
|00001270| 40 21 88 09 40 c3 09 40 | 09 40 4b c4 23 4d 88 09 |@!..@..@|.@K.#M..|
|00001280| 41 89 11 ac 63 c5 29 87 | 22 20 5b 64 65 62 75 67 |A...c.).|" [debug|
|00001290| 2d 66 75 6e 63 74 69 6f | 6e 2d 6c 69 73 74 20 6c |-functio|n-list l|
|000012a0| 69 73 74 20 64 65 62 75 | 67 2d 63 6f 6e 76 65 72 |ist debu|g-conver|
|000012b0| 74 2d 62 79 74 65 2d 63 | 6f 64 65 20 64 65 62 75 |t-byte-c|ode debu|
|000012c0| 67 2d 6f 6e 2d 65 6e 74 | 72 79 2d 31 20 74 20 6e |g-on-ent|ry-1 t n|
|000012d0| 69 6c 5d 20 36 20 22 5c | 0a 54 75 72 6e 20 61 6c |il] 6 "\|.Turn al|
|000012e0| 6c 20 64 65 62 75 67 2d | 6f 6e 2d 65 6e 74 72 79 |l debug-|on-entry|
|000012f0| 20 66 75 6e 63 74 69 6f | 6e 73 20 62 61 63 6b 20 | functio|ns back |
|00001300| 6f 6e 2e 22 5d 29 0a 28 | 66 73 65 74 20 27 64 65 |on."]).(|fset 'de|
|00001310| 62 75 67 67 65 72 2d 66 | 72 61 6d 65 2d 6e 75 6d |bugger-f|rame-num|
|00001320| 62 65 72 20 23 5b 6e 69 | 6c 20 22 8a c0 79 88 60 |ber #[ni|l "..y.`|
|00001330| c0 19 1a 65 62 88 60 60 | c3 5c 5c 7b c4 c5 21 9a |...eb.``|.\\{..!.|
|00001340| ac 8b 60 60 c3 5c 5c 7b | c4 c6 21 9a ab 88 c7 c8 |..``.\\{|..!.....|
|00001350| 21 88 c9 ca 21 88 ca 79 | 88 cb 75 88 67 cc 55 ab |!...!..y|..u.g.U.|
|00001360| 86 c9 ca 21 88 aa 84 c9 | cb 21 88 ca 79 88 60 5c |...!....|.!..y.`\|
|00001370| 6e 58 ab 85 09 54 11 aa | 61 09 2b 87 22 20 5b 30 |nX...T..|a.+." [0|
|00001380| 20 63 6f 75 6e 74 20 6f | 70 6f 69 6e 74 20 36 20 | count o|point 6 |
|00001390| 67 65 74 74 65 78 74 20 | 22 53 69 67 6e 61 6c 22 |gettext |"Signal"|
|000013a0| 20 22 52 65 74 75 72 6e | 22 20 73 65 61 72 63 68 | "Return|" search|
|000013b0| 2d 66 6f 72 77 61 72 64 | 20 22 3a 22 20 66 6f 72 |-forward| ":" for|
|000013c0| 77 61 72 64 2d 73 65 78 | 70 20 31 20 32 20 34 30 |ward-sex|p 1 2 40|
|000013d0| 5d 20 33 20 22 5c 0a 52 | 65 74 75 72 6e 20 6e 75 |] 3 "\.R|eturn nu|
|000013e0| 6d 62 65 72 20 6f 66 20 | 66 72 61 6d 65 73 20 69 |mber of |frames i|
|000013f0| 6e 20 62 61 63 6b 74 72 | 61 63 65 20 62 65 66 6f |n backtr|ace befo|
|00001400| 72 65 20 74 68 65 20 6f | 6e 65 20 70 6f 69 6e 74 |re the o|ne point|
|00001410| 20 70 6f 69 6e 74 73 20 | 61 74 2e 22 5d 29 0a 28 | points |at."]).(|
|00001420| 66 73 65 74 20 27 64 65 | 62 75 67 67 65 72 2d 66 |fset 'de|bugger-f|
|00001430| 72 61 6d 65 20 23 5b 6e | 69 6c 20 22 c0 79 88 c1 |rame #[n|il ".y..|
|00001440| 20 1a c3 5c 6e 0c 5c 5c | c5 5c 22 88 29 67 c6 55 | ..\n.\\|.\".)g.U|
|00001450| ab 8b c7 1e 08 c9 ca 21 | 88 cb 63 88 29 c0 79 88 |.......!|..c.).y.|
|00001460| c7 87 22 20 5b 30 20 64 | 65 62 75 67 67 65 72 2d |.." [0 d|ebugger-|
|00001470| 66 72 61 6d 65 2d 6e 75 | 6d 62 65 72 20 6c 65 76 |frame-nu|mber lev|
|00001480| 65 6c 20 62 61 63 6b 74 | 72 61 63 65 2d 64 65 62 |el backt|race-deb|
|00001490| 75 67 20 64 65 62 75 67 | 67 65 72 2d 66 72 61 6d |ug debug|ger-fram|
|000014a0| 65 2d 6f 66 66 73 65 74 | 20 74 20 33 32 20 6e 69 |e-offset| t 32 ni|
|000014b0| 6c 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |l buffer|-read-on|
|000014c0| 6c 79 20 64 65 6c 65 74 | 65 2d 63 68 61 72 20 31 |ly delet|e-char 1|
|000014d0| 20 34 32 5d 20 33 20 22 | 5c 0a 52 65 71 75 65 73 | 42] 3 "|\.Reques|
|000014e0| 74 20 65 6e 74 72 79 20 | 74 6f 20 64 65 62 75 67 |t entry |to debug|
|000014f0| 67 65 72 20 77 68 65 6e | 20 74 68 69 73 20 66 72 |ger when| this fr|
|00001500| 61 6d 65 20 65 78 69 74 | 73 2e 0a 41 70 70 6c 69 |ame exit|s..Appli|
|00001510| 65 73 20 74 6f 20 74 68 | 65 20 66 72 61 6d 65 20 |es to th|e frame |
|00001520| 77 68 6f 73 65 20 6c 69 | 6e 65 20 70 6f 69 6e 74 |whose li|ne point|
|00001530| 20 69 73 20 6f 6e 20 69 | 6e 20 74 68 65 20 62 61 | is on i|n the ba|
|00001540| 63 6b 74 72 61 63 65 2e | 22 20 6e 69 6c 5d 29 0a |cktrace.|" nil]).|
|00001550| 28 66 73 65 74 20 27 64 | 65 62 75 67 67 65 72 2d |(fset 'd|ebugger-|
|00001560| 66 72 61 6d 65 2d 63 6c | 65 61 72 20 23 5b 6e 69 |frame-cl|ear #[ni|
|00001570| 6c 20 22 c0 79 88 c1 20 | 1a c3 5c 6e 0c 5c 5c c5 |l ".y.. |..\n.\\.|
|00001580| 5c 22 88 29 67 c6 55 ab | 8b c5 1e 07 c8 c9 21 88 |\".)g.U.|......!.|
|00001590| ca 63 88 29 c0 79 88 c5 | 87 22 20 5b 30 20 64 65 |.c.).y..|." [0 de|
|000015a0| 62 75 67 67 65 72 2d 66 | 72 61 6d 65 2d 6e 75 6d |bugger-f|rame-num|
|000015b0| 62 65 72 20 6c 65 76 65 | 6c 20 62 61 63 6b 74 72 |ber leve|l backtr|
|000015c0| 61 63 65 2d 64 65 62 75 | 67 20 64 65 62 75 67 67 |ace-debu|g debugg|
|000015d0| 65 72 2d 66 72 61 6d 65 | 2d 6f 66 66 73 65 74 20 |er-frame|-offset |
|000015e0| 6e 69 6c 20 34 32 20 62 | 75 66 66 65 72 2d 72 65 |nil 42 b|uffer-re|
|000015f0| 61 64 2d 6f 6e 6c 79 20 | 64 65 6c 65 74 65 2d 63 |ad-only |delete-c|
|00001600| 68 61 72 20 31 20 33 32 | 5d 20 33 20 22 5c 0a 44 |har 1 32|] 3 "\.D|
|00001610| 6f 20 6e 6f 74 20 65 6e | 74 65 72 20 74 6f 20 64 |o not en|ter to d|
|00001620| 65 62 75 67 67 65 72 20 | 77 68 65 6e 20 74 68 69 |ebugger |when thi|
|00001630| 73 20 66 72 61 6d 65 20 | 65 78 69 74 73 2e 0a 41 |s frame |exits..A|
|00001640| 70 70 6c 69 65 73 20 74 | 6f 20 74 68 65 20 66 72 |pplies t|o the fr|
|00001650| 61 6d 65 20 77 68 6f 73 | 65 20 6c 69 6e 65 20 70 |ame whos|e line p|
|00001660| 6f 69 6e 74 20 69 73 20 | 6f 6e 20 69 6e 20 74 68 |oint is |on in th|
|00001670| 65 20 62 61 63 6b 74 72 | 61 63 65 2e 22 20 6e 69 |e backtr|ace." ni|
|00001680| 6c 5d 29 0a 28 66 73 65 | 74 20 27 64 65 62 75 67 |l]).(fse|t 'debug|
|00001690| 67 65 72 2d 65 76 61 6c | 2d 65 78 70 72 65 73 73 |ger-eval|-express|
|000016a0| 69 6f 6e 20 23 5b 28 64 | 65 62 75 67 67 65 72 2d |ion #[(d|ebugger-|
|000016b0| 65 78 70 29 20 22 8a c0 | 09 21 ac 82 70 11 09 71 |exp) "..|.!..p..q|
|000016c0| 88 5c 6e 0b 0c 0d 0e 06 | 0e 07 0e 08 0e 09 0e 5c |.\n.....|.......\|
|000016d0| 6e 0e 0b 0e 0c 1e 0d 1e | 0e 1e 0f 1e 10 1e 11 1e |n.......|........|
|000016e0| 12 1e 13 1e 14 1e 15 1e | 16 1e 17 d8 0e 19 21 88 |........|......!.|
|000016f0| da 0e 1b 21 dc 20 16 19 | 0e 17 12 0e 16 13 0e 15 |...!. ..|........|
|00001700| 14 0e 14 15 0e 13 16 06 | 0e 12 16 07 0e 11 16 08 |........|........|
|00001710| 0e 10 16 09 0e 0f 16 5c | 6e 0e 0e 16 0b 0e 0d 16 |.......\|n.......|
|00001720| 0c 2e 0c 87 22 20 5b 62 | 75 66 66 65 72 2d 6e 61 |...." [b|uffer-na|
|00001730| 6d 65 20 64 65 62 75 67 | 67 65 72 2d 6f 6c 64 2d |me debug|ger-old-|
|00001740| 62 75 66 66 65 72 20 64 | 65 62 75 67 67 65 72 2d |buffer d|ebugger-|
|00001750| 6f 75 74 65 72 2d 6c 61 | 73 74 2d 63 6f 6d 6d 61 |outer-la|st-comma|
|00001760| 6e 64 20 64 65 62 75 67 | 67 65 72 2d 6f 75 74 65 |nd debug|ger-oute|
|00001770| 72 2d 74 68 69 73 2d 63 | 6f 6d 6d 61 6e 64 20 64 |r-this-c|ommand d|
|00001780| 65 62 75 67 67 65 72 2d | 6f 75 74 65 72 2d 75 6e |ebugger-|outer-un|
|00001790| 72 65 61 64 2d 63 6f 6d | 6d 61 6e 64 2d 65 76 65 |read-com|mand-eve|
|000017a0| 6e 74 20 64 65 62 75 67 | 67 65 72 2d 6f 75 74 65 |nt debug|ger-oute|
|000017b0| 72 2d 6c 61 73 74 2d 69 | 6e 70 75 74 2d 65 76 65 |r-last-i|nput-eve|
|000017c0| 6e 74 20 64 65 62 75 67 | 67 65 72 2d 6f 75 74 65 |nt debug|ger-oute|
|000017d0| 72 2d 6c 61 73 74 2d 69 | 6e 70 75 74 2d 63 68 61 |r-last-i|nput-cha|
|000017e0| 72 20 64 65 62 75 67 67 | 65 72 2d 6f 75 74 65 72 |r debugg|er-outer|
|000017f0| 2d 6c 61 73 74 2d 69 6e | 70 75 74 2d 74 69 6d 65 |-last-in|put-time|
|00001800| 20 64 65 62 75 67 67 65 | 72 2d 6f 75 74 65 72 2d | debugge|r-outer-|
|00001810| 6c 61 73 74 2d 63 6f 6d | 6d 61 6e 64 2d 65 76 65 |last-com|mand-eve|
|00001820| 6e 74 20 64 65 62 75 67 | 67 65 72 2d 6f 75 74 65 |nt debug|ger-oute|
|00001830| 72 2d 6c 61 73 74 2d 63 | 6f 6d 6d 61 6e 64 2d 63 |r-last-c|ommand-c|
|00001840| 68 61 72 20 64 65 62 75 | 67 67 65 72 2d 6f 75 74 |har debu|gger-out|
|00001850| 65 72 2d 73 74 61 6e 64 | 61 72 64 2d 69 6e 70 75 |er-stand|ard-inpu|
|00001860| 74 20 64 65 62 75 67 67 | 65 72 2d 6f 75 74 65 72 |t debugg|er-outer|
|00001870| 2d 73 74 61 6e 64 61 72 | 64 2d 6f 75 74 70 75 74 |-standar|d-output|
|00001880| 20 64 65 62 75 67 67 65 | 72 2d 6f 75 74 65 72 2d | debugge|r-outer-|
|00001890| 63 75 72 73 6f 72 2d 69 | 6e 2d 65 63 68 6f 2d 61 |cursor-i|n-echo-a|
|000018a0| 72 65 61 20 63 75 72 73 | 6f 72 2d 69 6e 2d 65 63 |rea curs|or-in-ec|
|000018b0| 68 6f 2d 61 72 65 61 20 | 73 74 61 6e 64 61 72 64 |ho-area |standard|
|000018c0| 2d 6f 75 74 70 75 74 20 | 73 74 61 6e 64 61 72 64 |-output |standard|
|000018d0| 2d 69 6e 70 75 74 20 6c | 61 73 74 2d 63 6f 6d 6d |-input l|ast-comm|
|000018e0| 61 6e 64 2d 63 68 61 72 | 20 6c 61 73 74 2d 63 6f |and-char| last-co|
|000018f0| 6d 6d 61 6e 64 2d 65 76 | 65 6e 74 20 6c 61 73 74 |mmand-ev|ent last|
|00001900| 2d 69 6e 70 75 74 2d 74 | 69 6d 65 20 6c 61 73 74 |-input-t|ime last|
|00001910| 2d 69 6e 70 75 74 2d 63 | 68 61 72 20 6c 61 73 74 |-input-c|har last|
|00001920| 2d 69 6e 70 75 74 2d 65 | 76 65 6e 74 20 75 6e 72 |-input-e|vent unr|
|00001930| 65 61 64 2d 63 6f 6d 6d | 61 6e 64 2d 65 76 65 6e |ead-comm|and-even|
|00001940| 74 20 74 68 69 73 2d 63 | 6f 6d 6d 61 6e 64 20 6c |t this-c|ommand l|
|00001950| 61 73 74 2d 63 6f 6d 6d | 61 6e 64 20 73 74 6f 72 |ast-comm|and stor|
|00001960| 65 2d 6d 61 74 63 68 2d | 64 61 74 61 20 64 65 62 |e-match-|data deb|
|00001970| 75 67 67 65 72 2d 6f 75 | 74 65 72 2d 6d 61 74 63 |ugger-ou|ter-matc|
|00001980| 68 2d 64 61 74 61 20 65 | 76 61 6c 2d 65 78 70 72 |h-data e|val-expr|
|00001990| 65 73 73 69 6f 6e 20 64 | 65 62 75 67 67 65 72 2d |ession d|ebugger-|
|000019a0| 65 78 70 20 6d 61 74 63 | 68 2d 64 61 74 61 5d 20 |exp matc|h-data] |
|000019b0| 31 31 20 22 5c 0a 45 76 | 61 6c 20 61 6e 20 65 78 |11 "\.Ev|al an ex|
|000019c0| 70 72 65 73 73 69 6f 6e | 2c 20 69 6e 20 61 6e 20 |pression|, in an |
|000019d0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 20 6c 69 6b 65 |environm|ent like|
|000019e0| 20 74 68 61 74 20 6f 75 | 74 73 69 64 65 20 74 68 | that ou|tside th|
|000019f0| 65 20 64 65 62 75 67 67 | 65 72 2e 22 20 28 62 79 |e debugg|er." (by|
|00001a00| 74 65 2d 63 6f 64 65 20 | 22 c0 c1 c2 0b c4 c5 25 |te-code |"......%|
|00001a10| 43 87 22 20 5b 72 65 61 | 64 2d 66 72 6f 6d 2d 6d |C." [rea|d-from-m|
|00001a20| 69 6e 69 62 75 66 66 65 | 72 20 22 45 76 61 6c 3a |inibuffe|r "Eval:|
|00001a30| 20 22 20 6e 69 6c 20 72 | 65 61 64 2d 65 78 70 72 | " nil r|ead-expr|
|00001a40| 65 73 73 69 6f 6e 2d 6d | 61 70 20 74 20 72 65 61 |ession-m|ap t rea|
|00001a50| 64 2d 65 78 70 72 65 73 | 73 69 6f 6e 2d 68 69 73 |d-expres|sion-his|
|00001a60| 74 6f 72 79 5d 20 36 29 | 5d 29 0a 28 62 79 74 65 |tory] 6)|]).(byte|
|00001a70| 2d 63 6f 64 65 20 22 c0 | c1 21 ac d7 c2 20 1b c4 |-code ".|.!... ..|
|00001a80| 0b c1 5c 22 88 c5 0b 21 | 88 c6 0b c7 c8 23 88 c6 |..\"...!|.....#..|
|00001a90| 0b c9 ca 23 88 c6 0b cb | cc 23 88 c6 0b cd ce 23 |...#....|.#.....#|
|00001aa0| 88 c6 0b cf d0 23 88 c6 | 0b d1 d2 23 88 c6 0b d3 |.....#..|...#....|
|00001ab0| d4 23 88 c6 0b d5 d6 23 | 88 c6 0b d7 d8 23 88 c6 |.#.....#|.....#..|
|00001ac0| 0b d9 da 23 88 c6 0b db | dc 23 88 c6 0b dd de 23 |...#....|.#.....#|
|00001ad0| 88 0b 29 11 df e0 e1 e2 | 23 87 22 20 5b 62 6f 75 |..).....|#." [bou|
|00001ae0| 6e 64 70 20 64 65 62 75 | 67 67 65 72 2d 6d 6f 64 |ndp debu|gger-mod|
|00001af0| 65 2d 6d 61 70 20 6d 61 | 6b 65 2d 6b 65 79 6d 61 |e-map ma|ke-keyma|
|00001b00| 70 20 6d 61 70 20 73 65 | 74 2d 6b 65 79 6d 61 70 |p map se|t-keymap|
|00001b10| 2d 6e 61 6d 65 20 73 75 | 70 70 72 65 73 73 2d 6b |-name su|ppress-k|
|00001b20| 65 79 6d 61 70 20 64 65 | 66 69 6e 65 2d 6b 65 79 |eymap de|fine-key|
|00001b30| 20 22 2d 22 20 6e 65 67 | 61 74 69 76 65 2d 61 72 | "-" neg|ative-ar|
|00001b40| 67 75 6d 65 6e 74 20 22 | 62 22 20 64 65 62 75 67 |gument "|b" debug|
|00001b50| 67 65 72 2d 66 72 61 6d | 65 20 22 63 22 20 64 65 |ger-fram|e "c" de|
|00001b60| 62 75 67 67 65 72 2d 63 | 6f 6e 74 69 6e 75 65 20 |bugger-c|ontinue |
|00001b70| 22 6a 22 20 64 65 62 75 | 67 67 65 72 2d 6a 75 6d |"j" debu|gger-jum|
|00001b80| 70 20 22 72 22 20 64 65 | 62 75 67 67 65 72 2d 72 |p "r" de|bugger-r|
|00001b90| 65 74 75 72 6e 2d 76 61 | 6c 75 65 20 22 75 22 20 |eturn-va|lue "u" |
|00001ba0| 64 65 62 75 67 67 65 72 | 2d 66 72 61 6d 65 2d 63 |debugger|-frame-c|
|00001bb0| 6c 65 61 72 20 22 64 22 | 20 64 65 62 75 67 67 65 |lear "d"| debugge|
|00001bc0| 72 2d 73 74 65 70 2d 74 | 68 72 6f 75 67 68 20 22 |r-step-t|hrough "|
|00001bd0| 6c 22 20 64 65 62 75 67 | 67 65 72 2d 6c 69 73 74 |l" debug|ger-list|
|00001be0| 2d 66 75 6e 63 74 69 6f | 6e 73 20 22 68 22 20 64 |-functio|ns "h" d|
|00001bf0| 65 73 63 72 69 62 65 2d | 6d 6f 64 65 20 22 71 22 |escribe-|mode "q"|
|00001c00| 20 74 6f 70 2d 6c 65 76 | 65 6c 20 22 65 22 20 64 | top-lev|el "e" d|
|00001c10| 65 62 75 67 67 65 72 2d | 65 76 61 6c 2d 65 78 70 |ebugger-|eval-exp|
|00001c20| 72 65 73 73 69 6f 6e 20 | 22 20 22 20 6e 65 78 74 |ression |" " next|
|00001c30| 2d 6c 69 6e 65 20 70 75 | 74 20 64 65 62 75 67 67 |-line pu|t debugg|
|00001c40| 65 72 2d 6d 6f 64 65 20 | 6d 6f 64 65 2d 63 6c 61 |er-mode |mode-cla|
|00001c50| 73 73 20 73 70 65 63 69 | 61 6c 5d 20 34 29 0a 28 |ss speci|al] 4).(|
|00001c60| 66 73 65 74 20 27 64 65 | 62 75 67 67 65 72 2d 6d |fset 'de|bugger-m|
|00001c70| 6f 64 65 20 23 5b 6e 69 | 6c 20 22 c0 20 88 c1 12 |ode #[ni|l ". ...|
|00001c80| c3 c4 21 15 c6 16 07 c8 | 0e 09 21 88 ca 0e 0b 21 |..!.....|..!....!|
|00001c90| 87 22 20 5b 6b 69 6c 6c | 2d 61 6c 6c 2d 6c 6f 63 |." [kill|-all-loc|
|00001ca0| 61 6c 2d 76 61 72 69 61 | 62 6c 65 73 20 64 65 62 |al-varia|bles deb|
|00001cb0| 75 67 67 65 72 2d 6d 6f | 64 65 20 6d 61 6a 6f 72 |ugger-mo|de major|
|00001cc0| 2d 6d 6f 64 65 20 67 65 | 74 74 65 78 74 20 22 44 |-mode ge|ttext "D|
|00001cd0| 65 62 75 67 67 65 72 22 | 20 6d 6f 64 65 2d 6e 61 |ebugger"| mode-na|
|00001ce0| 6d 65 20 74 20 74 72 75 | 6e 63 61 74 65 2d 6c 69 |me t tru|ncate-li|
|00001cf0| 6e 65 73 20 73 65 74 2d | 73 79 6e 74 61 78 2d 74 |nes set-|syntax-t|
|00001d00| 61 62 6c 65 20 65 6d 61 | 63 73 2d 6c 69 73 70 2d |able ema|cs-lisp-|
|00001d10| 6d 6f 64 65 2d 73 79 6e | 74 61 78 2d 74 61 62 6c |mode-syn|tax-tabl|
|00001d20| 65 20 75 73 65 2d 6c 6f | 63 61 6c 2d 6d 61 70 20 |e use-lo|cal-map |
|00001d30| 64 65 62 75 67 67 65 72 | 2d 6d 6f 64 65 2d 6d 61 |debugger|-mode-ma|
|00001d40| 70 5d 20 32 20 22 5c 0a | 4d 6f 64 65 20 66 6f 72 |p] 2 "\.|Mode for|
|00001d50| 20 62 61 63 6b 74 72 61 | 63 65 20 62 75 66 66 65 | backtra|ce buffe|
|00001d60| 72 73 2c 20 73 65 6c 65 | 63 74 65 64 20 69 6e 20 |rs, sele|cted in |
|00001d70| 64 65 62 75 67 67 65 72 | 2e 0a 5c 5c 3c 64 65 62 |debugger|..\\<deb|
|00001d80| 75 67 67 65 72 2d 6d 6f | 64 65 2d 6d 61 70 3e 0a |ugger-mo|de-map>.|
|00001d90| 41 20 6c 69 6e 65 20 73 | 74 61 72 74 73 20 77 69 |A line s|tarts wi|
|00001da0| 74 68 20 60 2a 27 20 69 | 66 20 65 78 69 74 69 6e |th `*' i|f exitin|
|00001db0| 67 20 74 68 61 74 20 66 | 72 61 6d 65 20 77 69 6c |g that f|rame wil|
|00001dc0| 6c 20 63 61 6c 6c 20 74 | 68 65 20 64 65 62 75 67 |l call t|he debug|
|00001dd0| 67 65 72 2e 0a 54 79 70 | 65 20 5c 5c 5b 64 65 62 |ger..Typ|e \\[deb|
|00001de0| 75 67 67 65 72 2d 66 72 | 61 6d 65 5d 20 6f 72 20 |ugger-fr|ame] or |
|00001df0| 5c 5c 5b 64 65 62 75 67 | 67 65 72 2d 66 72 61 6d |\\[debug|ger-fram|
|00001e00| 65 2d 63 6c 65 61 72 5d | 20 74 6f 20 73 65 74 20 |e-clear]| to set |
|00001e10| 6f 72 20 72 65 6d 6f 76 | 65 20 74 68 65 20 60 2a |or remov|e the `*|
|00001e20| 27 2e 0a 0a 57 68 65 6e | 20 69 6e 20 64 65 62 75 |'...When| in debu|
|00001e30| 67 67 65 72 20 64 75 65 | 20 74 6f 20 66 72 61 6d |gger due| to fram|
|00001e40| 65 20 62 65 69 6e 67 20 | 65 78 69 74 65 64 2c 0a |e being |exited,.|
|00001e50| 75 73 65 20 74 68 65 20 | 5c 5c 5b 64 65 62 75 67 |use the |\\[debug|
|00001e60| 67 65 72 2d 72 65 74 75 | 72 6e 2d 76 61 6c 75 65 |ger-retu|rn-value|
|00001e70| 5d 20 63 6f 6d 6d 61 6e | 64 20 74 6f 20 6f 76 65 |] comman|d to ove|
|00001e80| 72 72 69 64 65 20 74 68 | 65 20 76 61 6c 75 65 0a |rride th|e value.|
|00001e90| 62 65 69 6e 67 20 72 65 | 74 75 72 6e 65 64 20 66 |being re|turned f|
|00001ea0| 72 6f 6d 20 74 68 61 74 | 20 66 72 61 6d 65 2e 0a |rom that| frame..|
|00001eb0| 0a 55 73 65 20 5c 5c 5b | 64 65 62 75 67 2d 6f 6e |.Use \\[|debug-on|
|00001ec0| 2d 65 6e 74 72 79 5d 20 | 61 6e 64 20 5c 5c 5b 63 |-entry] |and \\[c|
|00001ed0| 61 6e 63 65 6c 2d 64 65 | 62 75 67 2d 6f 6e 2d 65 |ancel-de|bug-on-e|
|00001ee0| 6e 74 72 79 5d 20 74 6f | 20 63 6f 6e 74 72 6f 6c |ntry] to| control|
|00001ef0| 0a 77 68 69 63 68 20 66 | 75 6e 63 74 69 6f 6e 73 |.which f|unctions|
|00001f00| 20 77 69 6c 6c 20 65 6e | 74 65 72 20 74 68 65 20 | will en|ter the |
|00001f10| 64 65 62 75 67 67 65 72 | 20 77 68 65 6e 20 63 61 |debugger| when ca|
|00001f20| 6c 6c 65 64 2e 0a 0a 43 | 6f 6d 70 6c 65 74 65 20 |lled...C|omplete |
|00001f30| 6c 69 73 74 20 6f 66 20 | 63 6f 6d 6d 61 6e 64 73 |list of |commands|
|00001f40| 3a 0a 5c 5c 7b 64 65 62 | 75 67 67 65 72 2d 6d 6f |:.\\{deb|ugger-mo|
|00001f50| 64 65 2d 6d 61 70 7d 22 | 5d 29 0a 28 66 73 65 74 |de-map}"|]).(fset|
|00001f60| 20 27 64 65 62 75 67 2d | 6f 6e 2d 65 6e 74 72 79 | 'debug-|on-entry|
|00001f70| 20 23 5b 28 66 75 6e 63 | 74 69 6f 6e 29 20 22 c0 | #[(func|tion) ".|
|00001f80| 20 88 c1 5c 6e 4b 21 ab | 85 c3 c4 5c 6e 5c 22 88 | ..\nK!.|...\n\".|
|00001f90| 5c 6e 4b 3a ac 84 c5 5c | 6e 21 88 5c 6e 4b 3a ac |\nK:...\|n!.\nK:.|
|00001fa0| 85 c3 c6 5c 6e 5c 22 88 | 5c 6e c7 5c 6e 89 4b c8 |...\n\".|\n.\n.K.|
|00001fb0| 23 4d 88 5c 6e 0e 09 3e | ac 86 5c 6e 0e 09 42 16 |#M.\n..>|..\n..B.|
|00001fc0| 09 5c 6e 87 22 20 5b 64 | 65 62 75 67 67 65 72 2d |.\n." [d|ebugger-|
|00001fd0| 72 65 65 6e 61 62 6c 65 | 20 73 75 62 72 70 20 66 |reenable| subrp f|
|00001fe0| 75 6e 63 74 69 6f 6e 20 | 65 72 72 6f 72 20 22 46 |unction |error "F|
|00001ff0| 75 6e 63 74 69 6f 6e 20 | 25 73 20 69 73 20 61 20 |unction |%s is a |
|00002000| 70 72 69 6d 69 74 69 76 | 65 22 20 64 65 62 75 67 |primitiv|e" debug|
|00002010| 2d 63 6f 6e 76 65 72 74 | 2d 62 79 74 65 2d 63 6f |-convert|-byte-co|
|00002020| 64 65 20 22 44 65 66 69 | 6e 69 74 69 6f 6e 20 6f |de "Defi|nition o|
|00002030| 66 20 25 73 20 69 73 20 | 6e 6f 74 20 61 20 6c 69 |f %s is |not a li|
|00002040| 73 74 22 20 64 65 62 75 | 67 2d 6f 6e 2d 65 6e 74 |st" debu|g-on-ent|
|00002050| 72 79 2d 31 20 74 20 64 | 65 62 75 67 2d 66 75 6e |ry-1 t d|ebug-fun|
|00002060| 63 74 69 6f 6e 2d 6c 69 | 73 74 5d 20 35 20 22 5c |ction-li|st] 5 "\|
|00002070| 0a 52 65 71 75 65 73 74 | 20 46 55 4e 43 54 49 4f |.Request| FUNCTIO|
|00002080| 4e 20 74 6f 20 69 6e 76 | 6f 6b 65 20 64 65 62 75 |N to inv|oke debu|
|00002090| 67 67 65 72 20 65 61 63 | 68 20 74 69 6d 65 20 69 |gger eac|h time i|
|000020a0| 74 20 69 73 20 63 61 6c | 6c 65 64 2e 0a 49 66 20 |t is cal|led..If |
|000020b0| 79 6f 75 20 74 65 6c 6c | 20 74 68 65 20 64 65 62 |you tell| the deb|
|000020c0| 75 67 67 65 72 20 74 6f | 20 63 6f 6e 74 69 6e 75 |ugger to| continu|
|000020d0| 65 2c 20 46 55 4e 43 54 | 49 4f 4e 27 73 20 65 78 |e, FUNCT|ION's ex|
|000020e0| 65 63 75 74 69 6f 6e 20 | 70 72 6f 63 65 65 64 73 |ecution |proceeds|
|000020f0| 2e 0a 54 68 69 73 20 77 | 6f 72 6b 73 20 62 79 20 |..This w|orks by |
|00002100| 6d 6f 64 69 66 79 69 6e | 67 20 74 68 65 20 64 65 |modifyin|g the de|
|00002110| 66 69 6e 69 74 69 6f 6e | 20 6f 66 20 46 55 4e 43 |finition| of FUNC|
|00002120| 54 49 4f 4e 2c 0a 77 68 | 69 63 68 20 6d 75 73 74 |TION,.wh|ich must|
|00002130| 20 62 65 20 77 72 69 74 | 74 65 6e 20 69 6e 20 4c | be writ|ten in L|
|00002140| 69 73 70 2c 20 6e 6f 74 | 20 70 72 65 64 65 66 69 |isp, not| predefi|
|00002150| 6e 65 64 2e 0a 55 73 65 | 20 5c 5c 5b 63 61 6e 63 |ned..Use| \\[canc|
|00002160| 65 6c 2d 64 65 62 75 67 | 2d 6f 6e 2d 65 6e 74 72 |el-debug|-on-entr|
|00002170| 79 5d 20 74 6f 20 63 61 | 6e 63 65 6c 20 74 68 65 |y] to ca|ncel the|
|00002180| 20 65 66 66 65 63 74 20 | 6f 66 20 74 68 69 73 20 | effect |of this |
|00002190| 63 6f 6d 6d 61 6e 64 2e | 0a 52 65 64 65 66 69 6e |command.|.Redefin|
|000021a0| 69 6e 67 20 46 55 4e 43 | 54 49 4f 4e 20 61 6c 73 |ing FUNC|TION als|
|000021b0| 6f 20 63 61 6e 63 65 6c | 73 20 69 74 2e 22 20 22 |o cancel|s it." "|
|000021c0| 61 44 65 62 75 67 20 6f | 6e 20 65 6e 74 72 79 20 |aDebug o|n entry |
|000021d0| 28 74 6f 20 66 75 6e 63 | 74 69 6f 6e 29 3a 20 22 |(to func|tion): "|
|000021e0| 5d 29 0a 28 66 73 65 74 | 20 27 63 61 6e 63 65 6c |]).(fset| 'cancel|
|000021f0| 2d 64 65 62 75 67 2d 6f | 6e 2d 65 6e 74 72 79 20 |-debug-o|n-entry |
|00002200| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 66 75 6e |#[(&opti|onal fun|
|00002210| 63 74 69 6f 6e 29 20 22 | c0 20 88 09 ab 97 09 c2 |ction) "|. ......|
|00002220| 98 ac 92 09 c3 09 89 4b | c4 23 4d 88 c5 09 0e 06 |.......K|.#M.....|
|00002230| 5c 22 16 06 09 87 c7 c8 | 21 88 c9 ca 0e 06 5c 22 |\"......|!.....\"|
|00002240| 87 22 20 5b 64 65 62 75 | 67 67 65 72 2d 72 65 65 |." [debu|gger-ree|
|00002250| 6e 61 62 6c 65 20 66 75 | 6e 63 74 69 6f 6e 20 22 |nable fu|nction "|
|00002260| 22 20 64 65 62 75 67 2d | 6f 6e 2d 65 6e 74 72 79 |" debug-|on-entry|
|00002270| 2d 31 20 6e 69 6c 20 64 | 65 6c 71 20 64 65 62 75 |-1 nil d|elq debu|
|00002280| 67 2d 66 75 6e 63 74 69 | 6f 6e 2d 6c 69 73 74 20 |g-functi|on-list |
|00002290| 6d 65 73 73 61 67 65 20 | 22 43 61 6e 63 65 6c 6c |message |"Cancell|
|000022a0| 69 6e 67 20 64 65 62 75 | 67 2d 6f 6e 2d 65 6e 74 |ing debu|g-on-ent|
|000022b0| 72 79 20 66 6f 72 20 61 | 6c 6c 20 66 75 6e 63 74 |ry for a|ll funct|
|000022c0| 69 6f 6e 73 22 20 6d 61 | 70 63 61 72 20 63 61 6e |ions" ma|pcar can|
|000022d0| 63 65 6c 2d 64 65 62 75 | 67 2d 6f 6e 2d 65 6e 74 |cel-debu|g-on-ent|
|000022e0| 72 79 5d 20 35 20 22 5c | 0a 55 6e 64 6f 20 65 66 |ry] 5 "\|.Undo ef|
|000022f0| 66 65 63 74 20 6f 66 20 | 5c 5c 5b 64 65 62 75 67 |fect of |\\[debug|
|00002300| 2d 6f 6e 2d 65 6e 74 72 | 79 5d 20 6f 6e 20 46 55 |-on-entr|y] on FU|
|00002310| 4e 43 54 49 4f 4e 2e 0a | 49 66 20 61 72 67 75 6d |NCTION..|If argum|
|00002320| 65 6e 74 20 69 73 20 6e | 69 6c 20 6f 72 20 61 6e |ent is n|il or an|
|00002330| 20 65 6d 70 74 79 20 73 | 74 72 69 6e 67 2c 20 63 | empty s|tring, c|
|00002340| 61 6e 63 65 6c 20 66 6f | 72 20 61 6c 6c 20 66 75 |ancel fo|r all fu|
|00002350| 6e 63 74 69 6f 6e 73 2e | 22 20 28 62 79 74 65 2d |nctions.|" (byte-|
|00002360| 63 6f 64 65 20 22 c0 c1 | c2 c3 c2 c4 0d 5c 22 5c |code "..|.....\"\|
|00002370| 22 c6 c7 c6 25 89 1e 08 | ad 84 c9 0e 08 21 29 43 |"...%...|.....!)C|
|00002380| 87 22 20 5b 63 6f 6d 70 | 6c 65 74 69 6e 67 2d 72 |." [comp|leting-r|
|00002390| 65 61 64 20 22 43 61 6e | 63 65 6c 20 64 65 62 75 |ead "Can|cel debu|
|000023a0| 67 20 6f 6e 20 65 6e 74 | 72 79 20 28 74 6f 20 66 |g on ent|ry (to f|
|000023b0| 75 6e 63 74 69 6f 6e 29 | 3a 20 22 20 6d 61 70 63 |unction)|: " mapc|
|000023c0| 61 72 20 6c 69 73 74 20 | 73 79 6d 62 6f 6c 2d 6e |ar list |symbol-n|
|000023d0| 61 6d 65 20 64 65 62 75 | 67 2d 66 75 6e 63 74 69 |ame debu|g-functi|
|000023e0| 6f 6e 2d 6c 69 73 74 20 | 6e 69 6c 20 74 20 6e 61 |on-list |nil t na|
|000023f0| 6d 65 20 69 6e 74 65 72 | 6e 5d 20 38 29 5d 29 0a |me inter|n] 8)]).|
|00002400| 28 62 79 74 65 2d 63 6f | 64 65 20 22 c0 c1 4d 88 |(byte-co|de "..M.|
|00002410| c2 c3 4d 87 22 20 5b 64 | 65 62 75 67 2d 63 6f 6e |..M." [d|ebug-con|
|00002420| 76 65 72 74 2d 62 79 74 | 65 2d 63 6f 64 65 20 23 |vert-byt|e-code #|
|00002430| 5b 28 66 75 6e 63 74 69 | 6f 6e 29 20 22 08 4b 89 |[(functi|on) ".K.|
|00002440| 19 3a 3f ad b9 c2 09 c3 | 5c 22 1c c5 0c 41 40 c6 |.:?.....|\"...A@.|
|00002450| 0c 38 c7 0c 38 46 43 1e | 08 c9 0c 9b ab 8a ca c9 |.8..8FC.|........|
|00002460| 0c 38 44 0e 08 42 16 08 | cb 0c 38 ab 88 cb 0c 38 |.8D..B..|..8....8|
|00002470| 0e 08 42 16 08 08 cc 0c | 40 0e 08 42 42 4d 2a 29 |..B.....|@..BBM*)|
|00002480| 87 22 20 5b 66 75 6e 63 | 74 69 6f 6e 20 64 65 66 |." [func|tion def|
|00002490| 6e 20 61 70 70 65 6e 64 | 20 6e 69 6c 20 63 6f 6e |n append| nil con|
|000024a0| 74 65 6e 74 73 20 62 79 | 74 65 2d 63 6f 64 65 20 |tents by|te-code |
|000024b0| 32 20 33 20 62 6f 64 79 | 20 35 20 69 6e 74 65 72 |2 3 body| 5 inter|
|000024c0| 61 63 74 69 76 65 20 34 | 20 6c 61 6d 62 64 61 5d |active 4| lambda]|
|000024d0| 20 36 5d 20 64 65 62 75 | 67 2d 6f 6e 2d 65 6e 74 | 6] debu|g-on-ent|
|000024e0| 72 79 2d 31 20 23 5b 28 | 66 75 6e 63 74 69 6f 6e |ry-1 #[(|function|
|000024f0| 20 64 65 66 6e 20 66 6c | 61 67 29 20 22 c0 09 21 | defn fl|ag) "..!|
|00002500| ab 85 c2 c3 0c 5c 22 87 | 09 40 c5 3d ab 88 c6 0c |.....\".|.@.=....|
|00002510| 09 41 0e 07 23 87 09 40 | c8 3d ac 85 c2 c9 0c 5c |.A..#..@|.=.....\|
|00002520| 22 88 ca 89 1e 0b 1e 0c | 09 41 41 40 3b ab 93 cd |".......|.AA@;...|
|00002530| 09 9b 16 0c 09 40 09 41 | 40 09 41 41 40 45 16 0b |.....@.A|@.AA@E..|
|00002540| aa 8d 09 41 41 16 0c 09 | 40 09 41 40 44 16 0b 0e |...AA...|@.A@D...|
|00002550| 07 0e 0c 40 ce 9a 3d ab | 83 09 aa 93 0e 07 ab 89 |...@..=.|........|
|00002560| 0e 0b cf 0e 0c 42 a4 aa | 86 0e 0b 0e 0c 41 a4 2a |.....B..|.....A.*|
|00002570| 87 22 20 5b 73 75 62 72 | 70 20 64 65 66 6e 20 65 |." [subr|p defn e|
|00002580| 72 72 6f 72 20 22 25 73 | 20 69 73 20 61 20 62 75 |rror "%s| is a bu|
|00002590| 69 6c 74 2d 69 6e 20 66 | 75 6e 63 74 69 6f 6e 22 |ilt-in f|unction"|
|000025a0| 20 66 75 6e 63 74 69 6f | 6e 20 6d 61 63 72 6f 20 | functio|n macro |
|000025b0| 64 65 62 75 67 2d 6f 6e | 2d 65 6e 74 72 79 2d 31 |debug-on|-entry-1|
|000025c0| 20 66 6c 61 67 20 6c 61 | 6d 62 64 61 20 22 25 73 | flag la|mbda "%s|
|000025d0| 20 6e 6f 74 20 75 73 65 | 72 2d 64 65 66 69 6e 65 | not use|r-define|
|000025e0| 64 20 4c 69 73 70 20 66 | 75 6e 63 74 69 6f 6e 22 |d Lisp f|unction"|
|000025f0| 20 6e 69 6c 20 70 72 65 | 63 20 74 61 69 6c 20 33 | nil pre|c tail 3|
|00002600| 20 28 64 65 62 75 67 20 | 27 64 65 62 75 67 29 20 | (debug |'debug) |
|00002610| 28 64 65 62 75 67 20 27 | 64 65 62 75 67 29 5d 20 |(debug '|debug)] |
|00002620| 34 5d 5d 20 32 29 0a 28 | 66 73 65 74 20 27 64 65 |4]] 2).(|fset 'de|
|00002630| 62 75 67 67 65 72 2d 6c | 69 73 74 2d 66 75 6e 63 |bugger-l|ist-func|
|00002640| 74 69 6f 6e 73 20 23 5b | 6e 69 6c 20 22 c0 90 09 |tions #[|nil "...|
|00002650| ac 85 c2 c3 21 aa 9f c2 | c4 21 88 09 89 1d ab 8e |....!...|.!......|
|00002660| c6 0d 40 21 88 c7 20 88 | 0d 41 89 15 ac 72 29 c2 |..@!.. .|.A...r).|
|00002670| c8 21 88 c2 c9 21 91 87 | 22 20 5b 22 2a 48 65 6c |.!...!..|" ["*Hel|
|00002680| 70 2a 22 20 64 65 62 75 | 67 2d 66 75 6e 63 74 69 |p*" debu|g-functi|
|00002690| 6f 6e 2d 6c 69 73 74 20 | 70 72 69 6e 63 20 22 4e |on-list |princ "N|
|000026a0| 6f 20 64 65 62 75 67 2d | 6f 6e 2d 65 6e 74 72 79 |o debug-|on-entry|
|000026b0| 20 66 75 6e 63 74 69 6f | 6e 73 20 6e 6f 77 5c 6e | functio|ns now\n|
|000026c0| 22 20 22 46 75 6e 63 74 | 69 6f 6e 73 20 73 65 74 |" "Funct|ions set|
|000026d0| 20 74 6f 20 64 65 62 75 | 67 20 6f 6e 20 65 6e 74 | to debu|g on ent|
|000026e0| 72 79 3a 5c 6e 5c 6e 22 | 20 6c 69 73 74 20 70 72 |ry:\n\n"| list pr|
|000026f0| 69 6e 31 20 74 65 72 70 | 72 69 20 22 4e 6f 74 65 |in1 terp|ri "Note|
|00002700| 3a 20 69 66 20 79 6f 75 | 20 68 61 76 65 20 72 65 |: if you| have re|
|00002710| 64 65 66 69 6e 65 64 20 | 61 20 66 75 6e 63 74 69 |defined |a functi|
|00002720| 6f 6e 2c 20 74 68 65 6e | 20 69 74 20 6d 61 79 20 |on, then| it may |
|00002730| 6e 6f 20 6c 6f 6e 67 65 | 72 5c 6e 22 20 22 62 65 |no longe|r\n" "be|
|00002740| 20 73 65 74 20 74 6f 20 | 64 65 62 75 67 20 6f 6e | set to |debug on|
|00002750| 20 65 6e 74 72 79 2c 20 | 65 76 65 6e 20 69 66 20 | entry, |even if |
|00002760| 69 74 20 69 73 20 69 6e | 20 74 68 65 20 6c 69 73 |it is in| the lis|
|00002770| 74 2e 22 5d 20 34 20 22 | 5c 0a 44 69 73 70 6c 61 |t."] 4 "|\.Displa|
|00002780| 79 20 61 20 6c 69 73 74 | 20 6f 66 20 61 6c 6c 20 |y a list| of all |
|00002790| 74 68 65 20 66 75 6e 63 | 74 69 6f 6e 73 20 6e 6f |the func|tions no|
|000027a0| 77 20 73 65 74 20 74 6f | 20 64 65 62 75 67 20 6f |w set to| debug o|
|000027b0| 6e 20 65 6e 74 72 79 2e | 22 20 6e 69 6c 5d 29 0a |n entry.|" nil]).|
+--------+-------------------------+-------------------------+--------+--------+